home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / sortdemo.zip / SDFILE.INC < prev    next >
Text File  |  1992-04-15  |  3KB  |  73 lines
  1. (*
  2. ╔═══════════════════════════════════════════════════════════════════════════╗
  3. ║ Turbo Pascal 6.0 Include File : SDFILE.INC                                ║
  4. ╟───────────────────────────────────────────────────────────────────────────╢
  5. ║ Program : SORTDEMO.PAS                                                    ║
  6. ╟───────────────────────────────────────────────────────────────────────────╢
  7. ║ Version : 1.0                                                             ║
  8. ╟───────────────────────────────────────────────────────────────────────────╢
  9. ║ Copyright (c) 1992  by  Jon S. Russell                                    ║
  10. ╟───────────────────────────────────────────────────────────────────────────╢
  11. ║ File-related routines for SORTDEMO.PAS                                    ║
  12. ╚═══════════════════════════════════════════════════════════════════════════╝
  13.                                                                            *)
  14. procedure AnalysisToFile (var Info  : InfoType;
  15.                               Start : TimeDateType;
  16.                               Stop  : TimeDateType;
  17.                               Diff  : DiffType);
  18. const
  19.   AFileName = 'SDSTATS.DAT';
  20.  
  21. var
  22.   AFile : text;
  23.  
  24.   (*───────────────────────────────────────────────────────────────────────*)
  25.  
  26.   function FileExist ( FileName : string) : boolean;
  27.   var
  28.     DirInfo : SearchRec;
  29.  
  30.   begin (* FileExist *)
  31.     FindFirst(FileName, Archive, DirInfo);
  32.     if DosError = 0
  33.       then FileExist := true
  34.       else FileExist := false;
  35.   end;  (* FileExist *)
  36.  
  37.   (*───────────────────────────────────────────────────────────────────────*)
  38.  
  39. begin  (* AnalysisToFile *)
  40.   assign(AFile, AFileName);
  41.   if not FileExist(AFileName)
  42.     then
  43.       begin
  44.         rewrite(AFile);
  45.         writeln(AFile, 'SORTDEMO ANALYSIS FILE');
  46.         writeln(AFile);
  47.       end
  48.     else
  49.       begin
  50.         append(AFile);
  51.       end;
  52.  
  53.   writeln(AFile, 'Sort method: ', SortTitles[Ord(Info.Method)+1]);
  54.   writeln(AFile, 'Array size:  [', Info.xElems:3, ',', Info.yElems:3,
  55.                  '] = ', Info.Len:4, ' elements');
  56.   writeln(AFile, 'Start time:  ', TimeDate2Str(Start));
  57.   writeln(AFile, 'Stop time:   ', TimeDate2Str(Stop));
  58.  
  59.   writeln(AFile, 'Sort time:   Days    Hrs    Mins    Secs    100s');
  60.   write(AFile, Diff.Days:17);
  61.   write(AFile, Diff.Hours:7);
  62.   write(AFile, Diff.Minutes:8);
  63.   write(AFile, Diff.Seconds:8);
  64.   write(AFile, Diff.Sec100s:8);
  65.   writeln(AFile);
  66.   writeln(AFile);
  67.   writeln(AFile);
  68.  
  69.   close(AFile);
  70. end;   (* AnalysisToFile *)
  71.  
  72. (*─────────────────────────────────────────────────────────────────────────*)
  73.